Unit UnDmLoginBeheer;

interface

uses SysUtils, Classes, InvokeRegistry, Midas, SOAPMidas, SOAPDm, Provider, DB,
  ADODB;

type
  IDmLoginBeheer = interface(IAppServerSOAP)
    ['{8F21A235-8120-4837-9B22-5180BCF25AF4}']
  end;

  TDmLoginBeheer = class(TSoapDataModule, IDmLoginBeheer, IAppServerSOAP, IAppServer)
    DbConnection: TADOConnection;
    QrBeheerLogin: TADOQuery;
    PrvBeheerLogin: TDataSetProvider;
  private
  
  public
  
  end;

implementation

{$R *.DFM}

procedure TDmLoginBeheerCreateInstance(out obj: TObject);
begin
 obj := TDmLoginBeheer.Create(nil);
end;

initialization
   InvRegistry.RegisterInvokableClass(TDmLoginBeheer, TDmLoginBeheerCreateInstance);
   InvRegistry.RegisterInterface(TypeInfo(IDmLoginBeheer));
end.
